green <- miscgis::miscgis_pals$tableau_cat[["green"]]
blue <- miscgis::miscgis_pals$tableau_cat[["blue"]]
orange <- miscgis::miscgis_pals$tableau_cat[["orange"]]
red <- miscgis::miscgis_pals$tableau_cat[["red"]]
teal <- miscgis::miscgis_pals$tableau_cat[["teal"]]
pal_rgb_4 <- miscgis::miscgis_pals$tableau_cat[c("red","gold","green","blue")] %>% unlist %>% palette()
pal_rgb_4 <- miscgis::miscgis_pals$tableau_cat[c("red","gold","green","blue")] %>% unlist %>% palette()
pal_rgb_6 <- miscgis::miscgis_pals$tableau_cat[c("red","gold","green","blue","orange","purple")] %>% unlist %>% palette()
pal_rgb_6 <- miscgis::miscgis_pals$tableau_cat[c("red","gold","green","blue","orange","purple")] %>% unlist %>% palette()
proj_light_grey <- col2hex("grey75")
proj_grey <- col2hex("grey50")
proj_dark_grey <- col2hex("grey25")
div_pal <- brewer.pal(11,'RdBu')[2:10]
# Load the map-making function
if(!exists('make_acs_map')){make_acs_map <- read_rds(root_file('./1-data/4-interim/make-acs-map-fun.rds'))}
# Load the crosstalk function
if(!exists('make_acs_crosstalk')){make_acs_crosstalk <- read_rds(root_file('./1-data/4-interim/make-acs-crosstalk-fun.rds'))}
# Load the acs indicator object that is prepared for the above function
if(!exists('map_acs_data_sf')){map_acs_data_sf <- read_rds(root_file('./1-data/4-interim/coo-acs-inds-map-sf.rds'))}
Income
These maps show the share of households earning less than 80% AMI for each census tract in Seattle CCD.
The data reflects a sample observed over a five-year span between 2011 and 2015.
COO Communities
# Tracts in COO communities
make_acs_map(long_sf = map_acs_data_sf,
.comms_only = TRUE,
.geog = 'tract',
.category = 'VULN',
.topic = 'B19001',
.pal = 'plasma',
.legend_title = "",
.css_style = paste0("float: left;","margin:3px;","text-transform:uppercase;text-shadow:-1px 0 #FFFFFF,0 1px #FFFFFF,1px 0 #FFFFFF,0 -1px #FFFFFF"))
# Aggregated tracts for each COO community
make_acs_map(long_sf = map_acs_data_sf,
.geog = 'community',
.category = 'VULN',
.topic = 'B19001',
.pal = 'plasma',
.legend_title = "",
.css_style = paste0("float: none;","margin:3px;","text-transform:uppercase;text-shadow:-1px 0 #FFFFFF,0 1px #FFFFFF,1px 0 #FFFFFF,0 -1px #FFFFFF"))
Data: All Geographies
make_acs_dt(long_sf = map_acs_data_sf,
.category = 'VULN',
.topic = 'B19001',
.col_title = "Low Inc. HH's")
LS0tDQpvdXRwdXQ6DQogIGh0bWxfbm90ZWJvb2s6DQogICAgY29kZV9mb2xkaW5nOiBoaWRlDQogIHBkZl9kb2N1bWVudDoNCiAgICBrZWVwX3RleDogeWVzDQphbHdheXNfYWxsb3dfaHRtbDogeWVzDQotLS0NCg0KYGBge3IgdnVsbi1sb3ctaW5jLXNldHVwLCBlY2hvID0gRkFMU0UsIHdhcm5pbmc9RkFMU0UsbWVzc2FnZT1GQUxTRSxjb21tZW50PUZBTFNFfQ0KbGlicmFyeShwbHlyKQ0KbGlicmFyeShzY2FsZXMpDQpsaWJyYXJ5KGtuaXRyKQ0KbGlicmFyeShycHJvanJvb3QpDQpsaWJyYXJ5KHJnZGFsKQ0KbGlicmFyeShzcCkNCmxpYnJhcnkocmdlb3MpDQpsaWJyYXJ5KHRpZ3JpcykNCmxpYnJhcnkobGVhZmxldCkNCmxpYnJhcnkoZ3JpZEV4dHJhKQ0KbGlicmFyeShnZ3RoZW1lcykNCmxpYnJhcnkobWFncml0dHIpDQpsaWJyYXJ5KHN0cmluZ3IpDQpsaWJyYXJ5KGRvd25sb2FkZXIpDQpsaWJyYXJ5KHdlYnNob3QpDQpsaWJyYXJ5KGh0bWx0b29scykNCmxpYnJhcnkoZ3Bsb3RzKQ0KbGlicmFyeShnZ21hcCkNCmxpYnJhcnkoc2hpbnkpDQpsaWJyYXJ5KGh0bWx3aWRnZXRzKQ0KbGlicmFyeShyZWFkeGwpDQpsaWJyYXJ5KGFjcykNCmxpYnJhcnkoUkNvbG9yQnJld2VyKQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KG1pc2NnaXMpDQpsaWJyYXJ5KG9wZXJhdG9yLnRvb2xzKQ0KbGlicmFyeShsZWFmbGV0LmV4dHJhcykNCmxpYnJhcnkodmlyaWRpc0xpdGUpDQpsaWJyYXJ5KGh0bWxUYWJsZSkNCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShmb3JjYXRzKQ0KbGlicmFyeShjcm9zc3RhbGspDQpsaWJyYXJ5KHBsb3RseSkNCmxpYnJhcnkoRFQpDQpsaWJyYXJ5KHNmKQ0Kcm9vdCA8LSBycHJvanJvb3Q6OmlzX3JzdHVkaW9fcHJvamVjdA0Kcm9vdF9maWxlIDwtIHJvb3QkbWFrZV9maXhfZmlsZSgpDQpvcHRzX2NodW5rJHNldChlY2hvPUZBTFNFLCB3YXJuaW5nPUZBTFNFLCBtZXNzYWdlPUZBTFNFLCBjb21tZW50PUZBTFNFKQ0KYGBgDQoNCmBgYHtyIHZ1bG4tbG93LWluYy1jb2xvcnN9DQpncmVlbiA8LSBtaXNjZ2lzOjptaXNjZ2lzX3BhbHMkdGFibGVhdV9jYXRbWyJncmVlbiJdXQ0KYmx1ZSA8LSBtaXNjZ2lzOjptaXNjZ2lzX3BhbHMkdGFibGVhdV9jYXRbWyJibHVlIl1dDQpvcmFuZ2UgPC0gbWlzY2dpczo6bWlzY2dpc19wYWxzJHRhYmxlYXVfY2F0W1sib3JhbmdlIl1dDQpyZWQgPC0gbWlzY2dpczo6bWlzY2dpc19wYWxzJHRhYmxlYXVfY2F0W1sicmVkIl1dDQp0ZWFsIDwtIG1pc2NnaXM6Om1pc2NnaXNfcGFscyR0YWJsZWF1X2NhdFtbInRlYWwiXV0NCnBhbF9yZ2JfNCA8LSBtaXNjZ2lzOjptaXNjZ2lzX3BhbHMkdGFibGVhdV9jYXRbYygicmVkIiwiZ29sZCIsImdyZWVuIiwiYmx1ZSIpXSAlPiUgdW5saXN0ICU+JSBwYWxldHRlKCkNCnBhbF9yZ2JfNCA8LSBtaXNjZ2lzOjptaXNjZ2lzX3BhbHMkdGFibGVhdV9jYXRbYygicmVkIiwiZ29sZCIsImdyZWVuIiwiYmx1ZSIpXSAlPiUgdW5saXN0ICU+JSBwYWxldHRlKCkNCnBhbF9yZ2JfNiA8LSBtaXNjZ2lzOjptaXNjZ2lzX3BhbHMkdGFibGVhdV9jYXRbYygicmVkIiwiZ29sZCIsImdyZWVuIiwiYmx1ZSIsIm9yYW5nZSIsInB1cnBsZSIpXSAlPiUgdW5saXN0ICU+JSBwYWxldHRlKCkNCnBhbF9yZ2JfNiA8LSBtaXNjZ2lzOjptaXNjZ2lzX3BhbHMkdGFibGVhdV9jYXRbYygicmVkIiwiZ29sZCIsImdyZWVuIiwiYmx1ZSIsIm9yYW5nZSIsInB1cnBsZSIpXSAlPiUgdW5saXN0ICU+JSBwYWxldHRlKCkNCnByb2pfbGlnaHRfZ3JleSA8LSBjb2wyaGV4KCJncmV5NzUiKQ0KcHJval9ncmV5IDwtIGNvbDJoZXgoImdyZXk1MCIpDQpwcm9qX2RhcmtfZ3JleSA8LSBjb2wyaGV4KCJncmV5MjUiKQ0KZGl2X3BhbCA8LSBicmV3ZXIucGFsKDExLCdSZEJ1JylbMjoxMF0NCmBgYA0KDQpgYGB7ciB2dWxuLWxvdy1pbmMtb2Jqc30NCg0KIyBMb2FkIHRoZSBtYXAtbWFraW5nIGZ1bmN0aW9uDQppZighZXhpc3RzKCdtYWtlX2Fjc19tYXAnKSl7bWFrZV9hY3NfbWFwIDwtIHJlYWRfcmRzKHJvb3RfZmlsZSgnLi8xLWRhdGEvNC1pbnRlcmltL21ha2UtYWNzLW1hcC1mdW4ucmRzJykpfQ0KDQojIExvYWQgdGhlIGNyb3NzdGFsayBmdW5jdGlvbg0KaWYoIWV4aXN0cygnbWFrZV9hY3NfY3Jvc3N0YWxrJykpe21ha2VfYWNzX2Nyb3NzdGFsayA8LSByZWFkX3Jkcyhyb290X2ZpbGUoJy4vMS1kYXRhLzQtaW50ZXJpbS9tYWtlLWFjcy1jcm9zc3RhbGstZnVuLnJkcycpKX0NCg0KDQojIExvYWQgdGhlIGFjcyBpbmRpY2F0b3Igb2JqZWN0IHRoYXQgaXMgcHJlcGFyZWQgZm9yIHRoZSBhYm92ZSBmdW5jdGlvbg0KaWYoIWV4aXN0cygnbWFwX2Fjc19kYXRhX3NmJykpe21hcF9hY3NfZGF0YV9zZiA8LSByZWFkX3Jkcyhyb290X2ZpbGUoJy4vMS1kYXRhLzQtaW50ZXJpbS9jb28tYWNzLWluZHMtbWFwLXNmLnJkcycpKX0NCg0KYGBgDQoNCiMjIyBJbmNvbWUgey19IA0KDQpUaGVzZSBtYXBzIHNob3cgdGhlICoqc2hhcmUgb2YgaG91c2Vob2xkcyBlYXJuaW5nIGxlc3MgdGhhbiA4MCUgQU1JKiogZm9yIGVhY2ggY2Vuc3VzIHRyYWN0IGluIFNlYXR0bGUgQ0NELg0KDQpUaGUgZGF0YSByZWZsZWN0cyBhIHNhbXBsZSBvYnNlcnZlZCBvdmVyIGEgZml2ZS15ZWFyIHNwYW4gYmV0d2VlbiAyMDExIGFuZCAyMDE1Lg0KDQo8YnI+DQoNCmBgYHtyIHZ1bG4tbG93LWluYy1zZWFjY2QtbWFwfQ0KDQptYWtlX2Fjc19jcm9zc3RhbGsobG9uZ19zZiA9IG1hcF9hY3NfZGF0YV9zZiwNCiAgICAgICAgICAgICAuZ2VvZyA9ICd0cmFjdCcsDQogICAgICAgICAgICAgLmNhdGVnb3J5ID0gJ1ZVTE4nLA0KICAgICAgICAgICAgIC50b3BpYyA9ICdCMTkwMDEnLA0KICAgICAgICAgICAgIC5wYWwgPSAncGxhc21hJywNCiAgICAgICAgICAgICAubGVnZW5kX3RpdGxlID0gIkxPVyBJTkNPTUUgSEgnUzxocj4yMDExLTIwMTUiLA0KICAgICAgICAgICAgIC5oZWlnaHRfbGZsdCA9IDYwMCwNCiAgICAgICAgICAgICAuaGVpZ2h0X3BsdGx5X3VwcGVyID0gMjAwLA0KICAgICAgICAgICAgIC5oZWlnaHRfcGx0bHlfbG93ZXIgPSA0MDAsDQogICAgICAgICAgICAgLndpZHRoX3BsdGx5ID0gNDAwLA0KICAgICAgICAgICAgIC5wbG90bHlfdGl0bGUgPSAiTE9XIElOQ09NRSBISCdTIiwNCiAgICAgICAgICAgICB6b29tID0gOSkNCmBgYA0KDQojIyMjIyBDT08gQ29tbXVuaXRpZXMgey19DQpgYGB7ciB2dWxuLWxvdy1pbmMtY29tbS1tYXAsIGZpZy5oZWlnaHQ9MywgZmlnLndpZHRoPTIsICBmaWcuc2hvdz0naG9sZCcsIGRwaT0xNTB9DQoNCiMgVHJhY3RzIGluIENPTyBjb21tdW5pdGllcw0KbWFrZV9hY3NfbWFwKGxvbmdfc2YgPSBtYXBfYWNzX2RhdGFfc2YsDQogICAgICAgICAgICAgLmNvbW1zX29ubHkgPSBUUlVFLA0KICAgICAgICAgICAgIC5nZW9nID0gJ3RyYWN0JywNCiAgICAgICAgICAgICAuY2F0ZWdvcnkgPSAnVlVMTicsDQogICAgICAgICAgICAgLnRvcGljID0gJ0IxOTAwMScsDQogICAgICAgICAgICAgLnBhbCA9ICdwbGFzbWEnLA0KICAgICAgICAgICAgIC5sZWdlbmRfdGl0bGUgPSAiIiwNCiAgICAgICAgICAgICAuY3NzX3N0eWxlID0gcGFzdGUwKCJmbG9hdDogbGVmdDsiLCJtYXJnaW46M3B4OyIsInRleHQtdHJhbnNmb3JtOnVwcGVyY2FzZTt0ZXh0LXNoYWRvdzotMXB4IDAgI0ZGRkZGRiwwIDFweCAjRkZGRkZGLDFweCAwICNGRkZGRkYsMCAtMXB4ICNGRkZGRkYiKSkgDQoNCiMgQWdncmVnYXRlZCB0cmFjdHMgZm9yIGVhY2ggQ09PIGNvbW11bml0eQ0KbWFrZV9hY3NfbWFwKGxvbmdfc2YgPSBtYXBfYWNzX2RhdGFfc2YsDQogICAgICAgICAgICAgLmdlb2cgPSAnY29tbXVuaXR5JywNCiAgICAgICAgICAgICAuY2F0ZWdvcnkgPSAnVlVMTicsDQogICAgICAgICAgICAgLnRvcGljID0gJ0IxOTAwMScsDQogICAgICAgICAgICAgLnBhbCA9ICdwbGFzbWEnLA0KICAgICAgICAgICAgIC5sZWdlbmRfdGl0bGUgPSAiIiwNCiAgICAgICAgICAgICAuY3NzX3N0eWxlID0gcGFzdGUwKCJmbG9hdDogbm9uZTsiLCJtYXJnaW46M3B4OyIsInRleHQtdHJhbnNmb3JtOnVwcGVyY2FzZTt0ZXh0LXNoYWRvdzotMXB4IDAgI0ZGRkZGRiwwIDFweCAjRkZGRkZGLDFweCAwICNGRkZGRkYsMCAtMXB4ICNGRkZGRkYiKSkgDQoNCg0KYGBgDQoNCg0KIyMjIyNEYXRhOiBBbGwgR2VvZ3JhcGhpZXMgey19DQpgYGB7ciB2dWxuLWxvdy1pbmMtZHR9DQoNCm1ha2VfYWNzX2R0KGxvbmdfc2YgPSBtYXBfYWNzX2RhdGFfc2YsDQogICAgICAgICAgICAuY2F0ZWdvcnkgPSAnVlVMTicsDQogICAgICAgICAgICAudG9waWMgPSAnQjE5MDAxJywNCiAgICAgICAgICAgIC5jb2xfdGl0bGUgPSAiTG93IEluYy4gSEgncyIpDQoNCg0KYGBg